home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / slither.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  121 lines
  1. 1 REM*'MUKADE 1.3' UPDATED,REVISED &         *CONVERTED FROM VIC TO 64 BY
  2. 2 REM*BY ROGER D. BURGE, #2667,TORONTO       *PET USERS GROUP,LONDON, ONT.CANADA
  3. 3 SC=PEEK(648)*256:CM=55296:CC=CM-SC:GOSUB4000:SV=54272
  4. 4 POKE53280,10:GOSUB2000
  5. 5 PRINT"[147]"
  6. 20 FORI=1TO4:GETG$:NEXT
  7. 30 P=0
  8. 50 E$=""
  9. 100 REM
  10. 105 POKE53281,1:PRINT"[147]":POKE53281,.
  11. 110 X=1 :Y=3                         
  12. 120 FORI=1TOM
  13. 130 X(I)=X:Y(I)=Y
  14. 140 NEXT
  15. 145 X1=10:Y1=-1                         
  16. 146 DEFFNA(Z)=-(ABS(PEEK(Z1)-PEEK(Z2))=G)*SGN(PEEK(Z1)-PEEK(Z2))
  17. 147 DEFFNB(Z)=-(ABS(PEEK(Z1)-PEEK(Z2))=F0)*SGN(PEEK(Z1)-PEEK(Z2))
  18. 148 ML=828:M2=879:M3=885:Z1=251:Z2=252:BS=32:G=1:DE=2:F0=40:HA=83
  19. 149 DEFFNC(A)=PEEK(SC+Y*F0+X-F0):POKE781,40:POKE782,.
  20. 150 POKE53265,PEEK(53265)AND239:GOSUB1000
  21. 155 GOSUB1100
  22. 157 GOSUB1200
  23. 160 S$="SCORE:":TA$="TARGETS"
  24. 161 PRINTS$P;TA$TS
  25. 205 FORI=GTOM:PRINTLEFT$(E$,Y(I))SPC(X(I))"[209]";:NEXT
  26. 210 SYSM3:SYSML:X=X+FNA(Z):Y=Y+FNB(A):SYSM2
  27. 280 IFFNC(A)=HATHENPOKES1,129:P=P+G:PRINTS$;P:GOTO300:REM**SOUND HEART
  28. 290 IFFNC(A)<>BSTHEN600
  29. 300 IFP=TSTHEN660
  30. 310 PRINTLEFT$(E$,Y(M))SPC(X(M))" ";
  31. 320 FORI=MTODESTEP-G
  32. 330 X(I)=X(I-G):Y(I)=Y(I-G):NEXT
  33. 340 X(G)=X:Y(G)=Y
  34. 500 GOTO205
  35. 600 IFP>HSTHENHS=P
  36. 650 IFP<TSTHEN690
  37. 660 SYSM3:FORT=.TO10:SYSM2:FORTT=1TO50:NEXT:SYSM3:POKE53280,T:NEXT             
  38. 670 POKES1,128:PRINT" [158]               YOU WIN!                "
  39. 671 PRINT" [158]                                       "
  40. 672 BO=INT((VAL(A$)/15+VAL(B$)/15)*P):P=P+BO
  41. 673 PRINT"[158]BONUS"BO"+ SCORE="P
  42. 674 IFP>HSTHENHS=P
  43. 675 PRINT"[158]HIGH     [157][157][157][157][157]"HS
  44. 689 GOTO701
  45. 690 PRINT" [153]                SORRY!                 ":GOSUB3000
  46. 691 PRINT" [153]                                       "
  47. 692 PRINT"[153]HIGH SCORE"HS
  48. 701 PRINT"           PLAY AGAIN?  (Y/N)           "
  49. 702 GETA$:IFA$=""THEN702
  50. 703 IFA$="Y"THENT2=1:GOTO2001
  51. 704 IFA$="N"THENPRINT"[147]":END
  52. 705 GOTO702
  53. 790 GOTO5
  54. 800 REM" CL*10+10
  55. 1000 [129]I[178].[164]CL[172]16[170]20
  56. 1040 A[178][187](.)[172]959
  57. 1041 GG[178][181]([187](.)[172]14)[170]1:[139]GG[178]10[167]1041
  58. 1060 [151]SC[170]A[170]F0,160
  59. 1070 [151]CM[170]A[170]F0,GG
  60. 1080 [130]:TS[178]CL[172]10[170]11
  61. 1081 [151]1105,86:[151]1105[170]CM[171]SC,G
  62. 1090 [142]
  63. 1100 [143]
  64. 1110 [129]I[178]SC[164]1063:[151]I,160:[151]I[170]CC,10:[151]I[170]960,160:[151]I[170]960[170]CC,10:[130]
  65. 1111 [153]"               SLITHER  V               ";
  66. 1112 [153]"SPEED LEVEL:"A$;
  67. 1113 [153]"              SKILL LEVEL:"B$""
  68. 1120 [129]I[178]1064[164]1904[169]F0:[151]I,160:[151]I[170]39,160:[151]I[170]CC,G:[151]I[170]39[170]CC,G:[130]
  69. 1190 [142]
  70. 1200 [151]53265,[194](53265)[176]16
  71. 1210 [129]I[178].[164]10[172]CL[170]10
  72. 1220 A[178][187](.)[172]959
  73. 1221 [139][194](A[170]SC[170]F0)[179][177]BS[167]1220
  74. 1230 [151]SC[170]A[170]F0,HA
  75. 1240 [151]CM[170]A[170]F0,10
  76. 1250 [130]
  77. 1260 [142]
  78. 2000 [134]X(12),Y(12)
  79. 2001 [153]"LOAD":[151]53281,1
  80. 2005 [153]"               SLITHER  V               "
  81. 2010 BO[178]4:BA[178]4:WA[178]6:CL[178]4:M[178]3:[141]5000
  82. 2015 [153]" USE JOYSTICK #2 TO CONTROL THE MOVING  SNAKE AND HELP HIM FIND HIS";
  83. 2016 [153]" VALENTINES  ((null)).
  84. 2020 PRINT"[156]BUT DON'T TOUCH THE WALLS, THE BLOCKS  OR YOURSELF!
  85. 2050 [153]"STOPSPEED LEVEL?"
  86. 2051 [153]"DEFSLOW (0<>9) FAST":[151]198,2 
  87. 2060 [161]A$:[139]A$[178]""[167]2060
  88. 2061 [139]A$[179]"0"[176]A$[177]"9"[167]2060
  89. 2065 [153]"STOP"A$:[153]"PRINT#SKILL LEVEL?"
  90. 2066 [153]"EASY (0<>9) HARD":[151]198,.
  91. 2073 [161]B$:[139]B$[178]""[167]2073
  92. 2074 [139]B$[179]"0"[176]A$[177]"9"[167]2073
  93. 2078 [153]"STOP"B$:C$[178]A$[170]B$:AS[178][197](C$)
  94. 2079 M[178][181](AS[173]10):CL[178]AS[171](M[172]10):M[178]9[171]M
  95. 2080 [139]CL[177]9 [176] M[177]9 [167]2060
  96. 2090 [139]CL[179]0 [176] M[179]0 [167]2060
  97. 2099 [139]T2[178]1[167]M[178]M[170]2:[129]T[178].[164]1500:[130]:[137]5
  98. 2100 M[178]M[170]2:[129]T[178].[164]1500:[130]:[142]
  99. 3000 [151]54277,53:[151]54278,69:[151]54276,33:[151]54273,5:[151]54272,71:SV[178]54272
  100. 3001 [129]F[178]G[164]900:[130]:[151]SV[170]G,.:[151]SV,.:[151]SV[170]5,53
  101. 3010 [151]SV[170]6,69:[151]SV[170]4,33:[151]SV[170]G,3:[151]SV,244
  102. 3015 [129]F[178]G[164]900:[130]:[151]SV[170]4,.:[151]SV[170]G,.:[151]SV,.:[151]SV[170]5,53
  103. 3020 [151]SV[170]6,69:[151]SV[170]4,33:[151]SV[170]G,DE:[151]SV,163:[129]F[178]G[164]900
  104. 3030 [130]:[151]SV[170]4,.:[151]SV[170]G,.:[151]SV  ,.::[142]
  105. 4000 [129]T[178]828[164]878:[135]A:[151]T,A:[130]:[143] JS ML
  106. 4010 [129]T[178]879[164]884:[135]A:[151]T,A:[130]:[143] BEEP OFF ML
  107. 4020 [129]T[178]885[164]890:[135]A:[151]T,A:[130]:[143] BEEP ON ML
  108. 4080 [131]173,.,220,41,15
  109. 4081 [131]201,7,208,7,162,2,160,1,76,106,3
  110. 4082 [131]201,13,208,7,162,80,160,40,76,106,3
  111. 4083 [131]201,11,208,7,162,.,160,1,76,106,3
  112. 4084 [131]201,14,208,4,162,.,160,40
  113. 4085 [131]134,251,132,252,96
  114. 4090 [131]169,16,141,4,212,96
  115. 4190 [131]169,17,141,4,212,96
  116. 4200 [142]
  117. 5000 [129]T[178]SV[164]SV[170]24:[151]T,.:[130]
  118. 5010 [151]SV[170]24,15:[151]SV[170]5,17:[151]SV[170]6,17
  119. 5020 [151]SV[170]1,28:[151]SV,.
  120. 5030 S1[178]54276:[142]
  121.